Sankey Code

library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

fig <- plot_ly(
    type = "sankey",
    orientation = "h",

    node = list(
      label = c("All UC Events", 
                "Long Term", 
                "Short Term", 
                "Case Filings", 
                "Cases Closed", 
                "MCH", 
                "State Court Hearings", 
                "LT Rep Initiated", 
                "KYRs", 
                "Initial Legal Screenings", 
                "ST Rep Initiated", 
                "VD Cases", 
                "I-360s", 
                "I-485s", 
                "I-589s", 
                "I-765s",
                "I-131s",
                "N-600s"),
      color = c("grey", 
                "grey", 
                "grey", 
                "rgba(255, 0, 0, 0.6)"),
      pad = 15,
      thickness = 20,
      line = list(
        color = "black",
        width = 0.5
      )
    ),

    link = list(
      source = c(0,0,1,3,3,3,3,1,1,1,1,2,2,2,2,3,3),
      target = c(1,2,3,12,13,14,15,4,5,6,7,8,9,10,11,16,17),
      value =  c(518,717,226,52,4,63,104,40,94,23,135,331,350,33,3,2,1),
      color = c("rgba(0, 113, 188, 0.6",    # Short Term (Darker Blue)
         "rgba(0, 113, 188, 0.6)",     # Long Term (Darker Blue)
         "rgba(255, 0, 0, 0.6)",  # Case Filings (Light Red)
         "rgba(204, 0, 0, 0.6)",       # 360 (Dark Red)
         "rgba(255, 128, 0, 0.6)",    # 485 (Orange)
         "rgba(255, 51, 153, 0.6)",   # 589 (Pink)
         "rgba(255, 68, 68, 0.6)",    # 765 (Bright Red)
         "rgba(139, 0, 0, 0.6)",  # Case Closed (Megenta)
         "rgba(255, 215, 0, 0.6)",     # MCH (Green)
         "rgba(255, 187, 51, 0.6)",   # State Court Hearings (Gold)
         "rgba(255, 128, 0, 0.6)",    # LT Rep Initiated (Orange)
         "rgba(102, 204, 0, 0.6)",    # KYR (Green)
         "rgba(0, 128, 128, 0.6)",    # Initial Legal Screening (Teal)
         "rgba(34, 139, 34, 0.6)",  # ST Rep Initiated (Light Blue)
         "rgba(102, 153, 255, 0.6)",
         "rgba(255, 165, 0, 0.6)",  # New Filing Type 1 (Orange)
         "rgba(255, 204, 153, 0.6)")  # New Filing Type 2 (Light Orange))   # VD Cases (Yellow-Orange)
  
    )
  )
#think of each column as a single stream, 1st value in the column is where it starts, second is where it goes, and 3rd value is how big it is 
# X
# Y
# Z


fig <- fig %>% layout(
    title = "Sankey Diagram of UC MIRC Events and Filings 01/01/23 - 06/30/23",
    font = list(
      size = 11
    )
)

fig